home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C++ / Applications / Nuntius 1.2 / src / UserStartup•cps < prev    next >
Encoding:
Text File  |  1994-01-07  |  13.5 KB  |  3 lines  |  [TEXT/MPS ]
  1. #    UserStartup•cps
  2.  
  3. set exit 1
  4.  
  5. #    Create the Directory menu
  6.  
  7.     DirectoryMenu `Directory`
  8.  
  9. #    Create the Build Menu
  10.  
  11. #    BuildMenu
  12.  
  13. #- UNIX m.v. --------------------------------------------------------------
  14.     Alias f files
  15.     Alias ls files -m 3
  16.     Alias ll files -l
  17.     Alias lf files -f
  18.     Alias lr files -f -s -r
  19.     Alias lrd 'files -f -d -r -o'
  20.     Alias rm Delete
  21.     Alias mv Move
  22.     Alias mkdir NewFolder
  23.     Alias cd directory
  24.     Alias pwd directory
  25.     Alias cat catenate
  26.     Alias cp Duplicate
  27.     # clever stuff
  28.     Alias o open
  29.     Alias op 'open -r' # read only
  30.     Alias ot 'open {target}'
  31.     Alias ocps 'open {mpw}UserStartup•cps'
  32.     Alias parm Parameters
  33.     Alias gfn GetFilename
  34.     Alias gdn GetFilename -d
  35.     Alias bp BuildProgram
  36.     Alias ev evaluate
  37.     Alias see 'StreamEdit -d -e '
  38.     Alias tr Translate
  39.     Alias trlfcr 'tr ∂
  40.  ∂n'
  41.     Alias s search
  42.     Alias ss search -s
  43.     Alias e echo
  44.     Alias et 'quote "{{target}}"'
  45.     Alias touch setfile -m .
  46.     Alias touchqFinal ∂
  47.             'touch "{WorkSheet}" `s qFinal -s -ns ≈.rs* ≈.h ≈.cp | see '∂''/File ∂"([a-zA-Z.]+)®1∂"/ pr ®1'∂'∂`
  48.     Alias antitouch setfile -m '01/01/92'
  49.     Alias pr print -dialog -font Courier -md -size 9 -h
  50.     Alias pr2 pr -c 2
  51.     Alias RezEqual ResEqual
  52.     Alias gerr GetErrorText
  53.     Alias cas 'close -a -y'
  54.     Alias MAHelp 'help -f {MacApp}MacApp.help'
  55.     Alias PGet 'get HD2:MPW:perl:PerlHelp'
  56.     Alias man help
  57.     Alias ex execute
  58.     Alias shutdown 'set IsShuttingDown 1;quit'
  59.     Alias restart 'SendAE -m 1 -e FNDRrest -t Finder'
  60.     Alias shutup restart
  61.     
  62.     Alias re 'HD2:Programmer:ResEdit:ResEdit'
  63.     Alias pm "{SystemFolder}Udvidelser:Skrivestyring"
  64.  
  65. #- variabler -------------------------------------------------------------
  66.     
  67.     set LF                    '
  68. '                                        ; export LF
  69.     
  70.     set Scripts            {mpw}scripts:                    ; export Scripts
  71.     set MyScripts        {mpw}MyScripts:                ; export MyScripts
  72.     set Tools                {mpw}tools:                        ; export Tools
  73.     set MyTools            {mpw}MyTools:                    ; export MyTools
  74.     set kilde                HD2:kilde:                        ; export kilde
  75.     set MyTS                {kilde}MyToolSource:    ; export MyTS
  76.     set obj                    {mpw}obj:                            ; export obj
  77.     set NewWindowRect 2,3,750,530                    ; export NewWindowRect
  78.     set df                    {boot}Desktop Folder: ; export df
  79.     set df2                    HD2:Desktop Folder:        ; export df2
  80.     set dfr                    HD2:Desktop Folder:        ; export dfr
  81.     set eu                    HD2:Diverse:Eudora Folder: ; export eu
  82.     set TSF                    {mpw}ToolServer:            ; export TSF
  83.     set ToolServer    {TSF}ToolServer                ; export ToolServer
  84.     set Commands        "{Commands},{MyScripts},{MyTools}" ; export Commands
  85.  
  86.     set IsMiniEnviroment "`IsModifierKeyDown -command`" ; export IsMiniEnviroment
  87.     if {IsMiniEnviroment}
  88.         if "`IsModifierKeyDown -control`"
  89.             exit
  90.         end
  91.     end
  92.  
  93. #- diverse ---------------------------------------------------------------
  94.     set WordSet "{WordSet}∂.æøåÆØÅ" ;    export WordSet
  95.     set Tab 2 ; export Tab
  96.     set PrintOptions '-dialog -h -f Courier -s 10 -md' ; export PrintOptions
  97. #    if "`PrinterDriverName`" == "StyleWriter"
  98. #        set PrintOptions "{PrintOptions} -r" # reverse
  99. #    end
  100.  
  101.     set HasRamDisk 0                            ; export HasRamDisk
  102.     set RamDisk ''                                ; export RamDisk
  103.  
  104.     if "`exists ram-disk:`" != ""
  105.         set RamDisk RAM-Disk:
  106.         set HasRamDisk 1
  107.     else if "`exists RD:`" != ""
  108.         set RamDisk RD:
  109.         set HasRamDisk 1
  110.     end
  111.     
  112.     if {HasRamDisk}
  113.         set dfr {RamDisk}Desktop Folder:    ; export dfr
  114.         set RamKilde {RamDisk}RamKilde:        ; export RamKilde
  115.         setfile -d '1/1/93' {RamDisk}
  116.         set TmpDir {RamDisk}Temp:            ; export TmpDir
  117.         Set TempFolder {RamDisk}'Temporary Items:'; export TempFolder # predefined
  118.         set dfr {RamDisk}Desktop Folder:
  119.     else
  120.         set TmpDir ""
  121.         for disk in `volumes`
  122.             if "{{disk}}" =~ /HD2:/ ∂
  123.             || "{{disk}}" =~ /≈[∂'∂"∂t∂ ∂?∂*∂+∂=∂≈∂`∂´]≈/
  124.                 continue
  125.             end
  126.             set TmpDir "{{disk}}Temp:"; export TempDir
  127.             break
  128.         end
  129.         if !"{TmpDir}"
  130.             set TmpDir {Obj}; export TmpDir
  131.         end
  132.         echo "Using {TmpDir} as folder for temporary items" ∑∑ {Worksheet}
  133.     end
  134.     set TmpTools {TmpDir}TmpTools:        ; export TmpTools
  135.     set exit 0
  136.     mkdir {TmpDir} ∑∑ dev:null
  137.     mkdir {TmpTools} ∑∑ dev:null
  138.     if "{RamKilde}"
  139.         mkdir {RamKilde} ∑∑ dev:null
  140.     end
  141.     set exit 1
  142.     set CPlusScratch {TmpDir}
  143.     export CPlusScratch
  144.     set Commands        "{Commands},{TmpTools},{TS},{df}"
  145.  
  146.     set tmp "{TmpDir}tmp"     ; export tmp
  147.     set tmp1 "{tmp}"        ; export tmp1
  148.     set tmp2 "{TmpDir}tmp2"    ; export tmp2
  149.     set tmp3 "{TmpDir}tmp3"    ; export tmp3
  150.     set tmp4 "{TmpDir}tmp4"    ; export tmp4
  151.     set tmp5 "{TmpDir}tmp5"    ; export tmp5
  152.     set tmp6 "{TmpDir}tmp6"    ; export tmp6
  153.     set tmp7 "{TmpDir}tmp7"    ; export tmp7
  154.     set tmp8 "{TmpDir}tmp8"    ; export tmp8
  155.     set tmp9 "{TmpDir}tmp9"    ; export tmp9
  156.     Alias otmp    'open {tmp}'
  157.     Alias otmp2    'open {tmp2}'
  158.     Alias otmp3    'open {tmp3}'
  159.     Alias otmp4    'open {tmp4}'
  160.     
  161.     set Font Ocanom ; export font
  162.  
  163. #- ram disk -----------------------------------------------------------------
  164. if {HasRamDisk} && !{IsMiniEnviroment}
  165.     for f in Scripts Libraries CLibraries PLibraries
  166.         echo 'set exit 0'
  167.         echo 'backup -r -a -c -from "{{'{f}'}}" -to {TmpDir}'{f}:' > {tmp2}'
  168.         echo 'set exit 1'
  169.         echo '{tmp2}'
  170.         echo 'set '{f}' {TmpDir}'{f}: 
  171.     end > {tmp}
  172.     execute {tmp}
  173.     set RamTools {TmpDir}RamTools: ; export RamTools
  174.     set exit 0
  175.     mkdir {RamTools} ∑∑ dev:null
  176.     set exit 1
  177.     cp -n {Tools}Link {Tools}Make {Tools}Rez ∂
  178.                 {Tools}Search {Tools}Sort {Tools}Translate ∂
  179.                 {Tools}StreamEdit {Tools}Backup ∂
  180.                 {Tools}C {Tools}CFront ∂
  181.                 {RamTools}
  182.     set Commands        "{RamTools},{Commands}"
  183. end
  184. #- ToolServer ---------------------------------------------------------------
  185.     Set WhichToolServer '-b'    # ToolServer on local machine
  186.     export WhichToolServer
  187.     set ToolServerWindow       "{tmpdir}ToolServer.output"; export ToolServerWindow
  188.     set ToolServerRedirection "∑ {ToolServerWindow}"; export ToolServerRedirection
  189.     Alias utse UpdateToolServerEnv
  190.     Alias obgo 'open {ToolServerWindow}'
  191.  
  192. #- Directory menu -----------------------------------------------------------------
  193.     DirectoryMenu `(Files -d -i "{MPW}"Examples:≈ || Set Status 0) ≥ Dev:Null` ∂
  194.         `Directory`    
  195.         
  196. #- tools menu -----------------------------------------------------------------
  197.     set exit 0
  198.     DeleteMenu tools ∑∑ dev:null # rebuild menu from scratch
  199.     set exit 1
  200.     AddMenu tools 'Set LaTeX keys' 'ex LaTeX_setkeys'
  201.     AddMenu tools 'edit LaTeX_setkeys' 'open {myscripts}LaTeX_setkeys'
  202.     AddMenu tools 'ChooseMyX/…' 'ChooseMyX'
  203.     AddMenu tools 'cd active-dir'   ∂
  204.         '(evaluate "{active}" =~ /(([¬:]+∂:)+)®1≈/ ) ∑∑ dev:null ;∂
  205.         cd "{®1}" ∑∑ dev:null || beep ;∂
  206.         '
  207.     AddMenu tools 'cd target-dir'   ∂
  208.         '(evaluate "{target}" =~ /(([¬:]+∂:)+)®1≈/ ) ∑∑ dev:null ;∂
  209.         cd "{®1}" ∑∑ dev:null || beep ;∂
  210.         '
  211.     AddMenu tools 'UpdateToolServerEnv' 'UpdateToolServerEnv'
  212.     AddMenu tools 'Make_Source_Backup' 'ex Make_Source_Backup'
  213.     AddMenu tools 'zoom {active}/Ω' 'zoomwindow "{active}"'
  214.     AddMenu tools 'anti touch {active}' 'save_all;antitouch "{active}"'
  215.     AddMenu tools 'count §' 'alert -s `count "{active}".§`'
  216.     AddMenu tools 'Compare to Nuntius file' ∂
  217.         '∂
  218.         if `evaluate "{active}" =~ /(≈:)«0,1»([¬:]+)®1/ ` ;∂
  219.             MyCompareFiles {K_Nuntius}{®1} "{active}"    ;∂
  220.         end ∑∑ {WorkSheet}                ;∂
  221.         '
  222.  
  223.     AddMenu tools 'Set TS Env' 'UpdateToolServerEnv'
  224.     AddMenu tools 'Vælg segment' 'ss -q segment ≈.cp| sort -unique | GetListItem -quote -single -message "Liste af segmenter" -cancel ∑∑ "{active}".§'
  225.     AddMenu tools 'DumpLastObj' DumpLastObj
  226.     AddMenu tools '-(' ''
  227.  
  228.     AddMenu tools 'Save all and RamDisk/ß' save_all
  229.     AddMenu tools 'Save and close/E' 'close -y "{{active}}" ∑∑ {worksheet}'
  230.     AddMenu tools 'WorkSheet/1'    'open "{workSheet}" ∑ dev:null'
  231.     AddMenu tools 'Target/2'        'open "{target}" ∑ dev:null || beep'
  232.     AddMenu tools 'Open .h or .cp/3' ∂
  233.          '∂
  234.         if `evaluate "{active}" =~ /(≈)®1∂.(([CPHcph])+)®2/` ;∂
  235.             if "{®2}" =~ /[hH]/                ;∂
  236.                 open "{®1}.cp" || open "{®1}.c" || open "{®1}.cpp"; ∂
  237.                 if {status}; beep; else; SaveOnClose -a {active}; end; ∂
  238.             else                                            ;∂
  239.                 open "{®1}.h"                        ;∂
  240.                 if {status}; beep; else; SaveOnClose -a {active}; end; ∂
  241.             end                                                ;∂
  242.         else                                                ;∂
  243.             beep 1                                        ;∂
  244.         end    ∑∑ dev:null                            ;∂
  245.         '
  246.  
  247.     Setkey Option-Command-3 ∂
  248.         '∂
  249.         if `evaluate "{active}" =~ /(≈:)«0,1»([¬:]+)®1/ ` ;∂
  250.             open {K_Nuntius}{®1} || beep    ;∂
  251.         end ∑∑ dev:null                            ;∂
  252.         '
  253.  
  254.     AddMenu tools 'Open MacApp U≈.h/4' ∂
  255.         'open "{MACPlusIncludes}U"`request -q "Name of U≈.h:"`.h ∑∑ dev:null || beep'
  256.  
  257.     AddMenu tools 'Open MacApp U≈.cp/5' ∂
  258.         'open "{OldMALibraries}U"`request -q "Name of U≈.cp:"`.cp ∑∑ dev:null || beep'
  259.     
  260.     AddMenu tools 'Open {OS++}≈.h/6' ∂
  261.         'open "{CPlusIncludes}"`request -q "Name of {OS++}≈.h:"`.h ∑∑ dev:null || beep'
  262.  
  263.     AddMenu tools 'Open {OS}≈.h/™' ∂
  264.         'open "{CIncludes}"`request -q "Name of {OS}≈.h:"`.h ∑∑ dev:null || beep'
  265.         
  266.     AddMenu tools 'Choose from {MyScripts} #/7' 'f {myscripts}| GetListItem | tr ∂n ' ''
  267.     
  268.     AddMenu tools 'Toggle invisible/8' ∂
  269.         '    if `format -x a "{active}"` == Ail        ;∂
  270.                 format -a AIl "{active}"                        ;∂
  271.             else                                                                    ;∂
  272.                 format -a Ail "{active}"                        ;∂
  273.             end                                                                        ;∂
  274.         '
  275.     AddMenu tools 'FlushVols/9' 'FlushVols'
  276.  
  277.     AddMenu tools 'Open ≈/+' ∂
  278.         '∂
  279.         set open_name "`request "Name of ≈:"`";    ∂
  280.         if "{open_name}";                                                ∂
  281.             open {open_name} ∑∑ dev:null;                    ∂
  282.             if {status}; beep; else; SaveOnClose -a "{open_name}" ∑∑ dev:null; end; ∂
  283.         end ∂
  284.         '
  285.  
  286.     AddMenu tools 'mark § §/µ' 'mark § "`cat "{active}".§`" "{active}"'
  287.  
  288.     AddMenu tools '-' ''
  289.     AddMenu tools 'ReCPlus/0' 'open "{WorkSheet}";ReCompile ∑∑ "{WorkSheet}";if {status};{MAFailed};else;{MADone};end;'
  290.     AddMenu tools 'Generic ReCPlus/≠' ∂
  291.     ' open {worksheet};' ∂
  292.     'if "{target}" =~ /≈∂:([a-zA-Z_]+.cp)®1/;' ∂
  293.     '  echo "Compiling: {®1}"; ' ∂
  294.     "  streamedit -e '/∂:[a-zA-Z_]+.cp/ replace -c ∞ /∂:[a-zA-Z_]+.cp/ ∂":'∂{®1∂}'∂"' < ∂{myscripts∂}recplus > ∂{tmp∂};" ∂
  295.     '  {tmp};' ∂
  296.     'else;' ∂
  297.     '  beep;' ∂
  298.     'end ∑∑ {worksheet};'
  299.  
  300.     AddMenu tools 'Print2 §/π' 'pr2 "{{active}}".§'
  301.  
  302.     AddMenu tools '-(' ''
  303.  
  304.     AddMenu tools 'quit/Q' 'confirm "Quitte?" && quit'    
  305.     AddMenu tools 'Copyright statement/©' 'echo -n "// Copyright © 1993 Peter Speck (speck@dat.ruc.dk).  All rights reserved.∂n// "'
  306.     AddMenu tools 'Go HD2 MALibs' 'Set maloadfiles HD2:MPW:Load_Files:;Set malibraries HD2:MPW:MacApp3.0.1:Libraries:'
  307.     AddMenu tools 'Use Symantext C++' '`ModifyMABuildDefaults -NoSymantec -Symantec`;CopyMacAppLibs DebugSC'
  308.     AddMenu tools 'Use CFront' '`ModifyMABuildDefaults -Symantec -NoSymantec`;CopyMacAppLibs Debug'
  309.  
  310.  
  311.  
  312. # otker keys:
  313.     setkey Home                            MoveStartOfLine
  314.     setkey End                            MoveEndOfLine
  315.     setkey Shift-Home                    SelectStartOfLine 
  316.     setkey Shift-End                    SelectEndOfLine 
  317.     setkey Command-Home                    MoveStartOfFile
  318.     setkey Command-End                    MoveEndOfFile
  319.     setkey Help                           Beep
  320.  
  321.     setkey Command-Shift-s            'save -a'    
  322.     setkey Command-Option-r            'open RsrcGlobals.h;SaveOnClose -a RsrcGlobals.h'
  323.     setkey Command-Option-e            'open Strings.r;SaveOnClose -a Strings.r'
  324.     setkey Command-Option-t            'open Errors.r;SaveOnClose -a Errors.r;open ErrorGlobals.h;SaveOnClose -a ErrorGlobals.h'
  325.  
  326.     setkey Command-Control-n        'cd {K_Nuntius}'
  327.     setkey Command-Control-s        'cd {K_Skoda}'
  328.     setkey Command-Control-b        'cd {K_Boghus}'
  329.     setkey Command-Control-e        'cd {K_Easy}'
  330.     setkey Command-Control-i        'cd {K_Eis}'
  331.     setkey Command-Control-p        'cd {K_PrnCtl}'
  332.  
  333.     setkey control-i                'cat {myts}FailInfoTemplate >> "{active}.§"; find (Δ§:!2:/≈/)Δ "{active}"'
  334.     setkey control-r                 '∂
  335.         set class_name "`request "Name of class:"`";    ∂
  336.         if "{class_name}";                                                ∂
  337.             StreamEdit -e "/XXXX/ Replace /XXXX/ ∂"{class_name}∂" -c ∞" < {myts}StreamReadTemplate >> "{active}".§; ∂
  338.             find Δ§:!2 "{active}"; ∂
  339.         end; ∂
  340.     ' # end
  341.     setkey control-option-r            DoRead2DoWrite
  342.  
  343.  
  344.     setkey control-f1 'open {tmp}  ≥ dev:null || new {tmp} '
  345.     setkey control-f2 'open {tmp2} ≥ dev:null || new {tmp2}'
  346.     setkey control-f3 'open {tmp3} ≥ dev:null || new {tmp3}'
  347.     setkey control-f4 'open {tmp4} ≥ dev:null || new {tmp4}'
  348.     setkey control-f5 'open {tmp5} ≥ dev:null || new {tmp5}'
  349.     setkey control-f6 'open {tmp6} ≥ dev:null || new {tmp6}'
  350.     setkey control-f7 'open {tmp7} ≥ dev:null || new {tmp7}'
  351.     setkey control-f8 'open {tmp8} ≥ dev:null || new {tmp8}'
  352.     setkey control-f9 'open {tmp9} ≥ dev:null || new {tmp9}'
  353.     
  354.     set server_disk1 Tintin: ; export server_disk1
  355.     alias mount_server_disk1 'choose -pw "infsys" -u "Brunhilde"  "*:Osvald:{server_disk1}"'
  356.     alias unmount_server_disk1 'unmount {server_disk1}'
  357.     set eis_folder "{server_disk1}InformationsSystemet:"; export eis_folder
  358.  
  359.     setkey control-option-command-f5 'if "`exists {server_disk1}`";unmount {server_disk1};else;mount_server_disk1;end;'
  360.     setkey shift-F15 'open History'
  361.     setkey F15       NewHistoryEntry
  362.     setkey control-F15 'open to_do'
  363.  
  364.     ex UpdateSourceMenu
  365.  
  366.  
  367. #- Projector -------------------------------------------------------------
  368. #    Create the Project menu
  369. #    AddMenu tools '-(' ''
  370. #    AddMenu tools 'Check In…' 'CheckIn -w ≥≥ "{WorkSheet}"'
  371. #    AddMenu tools 'Check Out…' 'CheckOut -w ≥≥ "{WorkSheet}"'
  372. #     AddMenu tools "(-" ""
  373. #    AddMenu tools 'New Project…' 'NewProject -w ≥≥ "{WorkSheet}"'
  374. #    AddMenu tools 'Mount Project…' 'MountProject… ∑∑ "{WorkSheet}"'
  375. #    AddMenu tools 'Set Project…' ∂
  376. #        '(project "`getListItem -r 10 ∂`MountProject -pp -s -r∂` -d "∂`Project -q∂`" ∂
  377. #         -m "Select a new current project:" -q`") ∑ dev:null'
  378. #     AddMenu tools "(-" ""
  379. #    AddMenu tools 'Compare Active…' 'CompareRevisions "{Active}" ∑∑ "{WorkSheet}"'
  380. #    AddMenu tools 'Merge Active…' 'MergeBranch "{Active}" ∑∑ "{WorkSheet}"'
  381.  
  382. #- slut ------------------------------------------------------------------
  383. Alias m6        'm -NoNeedsSystem7'
  384. #Alias md        'm -Debug -UnInit -cplusplus "-d DV=virtual"'
  385. Alias md        'm -Debug -UnInit'
  386. Alias mf        'm -d qFinal=TRUE'
  387.  
  388. Alias b            'save -a;bge m'  # need save -a due to make
  389. Alias bd        'save -a;bge md'
  390.  
  391. #Alias noCardRoots "s -s card-root ≈.r | count -l"
  392.  
  393. #Alias m3 'choose -u "Quadra 3" "*:Quadra 3:Quadra3"'
  394. #Alias m5 'choose -u "Quadra 5" "*:Quadra 5:Quadra5"'
  395. #Alias nn 'md  && cc 3 && {MADone}'
  396. #Alias mm 'msd && cc 3 && {MADone}'
  397. #setkey f9 'dumpec < {df2}ny:easy.mac | tr_dos2mac > {tmp4}; otmp4'
  398.  
  399. set cps_inited 1 ; export cps_inited
  400.